Imports Microsoft.ApplicationBlocks.Data.SqlHelper
Imports System.Data.SqlClient
Public Class ItemsDeOrdenesDeCompra
    Public Sub Generar(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer, ByVal Cantidad As Integer)
        Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(My.Settings.MiCadena, CommandType.StoredProcedure, _
        "ItemDeOCGenerar", New SqlClient.SqlParameter("Cod_OC", Cod_OC), New SqlClient.SqlParameter("Cod_Producto", _
        Cod_Producto), New SqlClient.SqlParameter("Cantidad", Cantidad))
    End Sub

    Public Function ObtenerFiltrados(ByVal Cod_OC As Integer)
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, CommandType.StoredProcedure, _
        "ItemsDeOCObrenerFiltrados", New SqlParameter("@Cod_OC", Cod_OC))
        Return DS
    End Function

End Class
